home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / PlotCMD.lha / plotcmd / mod_down.omed < prev    next >
Text File  |  1999-02-23  |  598b  |  34 lines
  1. /*
  2.     ARexx script for use with PlotCMD
  3.     (PlotCMD is a MUIRexx script for use with OctaMED Soundstudio)
  4.     Read the PlotCMD doc for details
  5. */
  6.  
  7. ADDRESS OCTAMED_REXX
  8. OPTIONS RESULTS
  9.  
  10. IN_SELECT LAST
  11. CALL checkifsample()
  12.  
  13. SA_RANGE ALL
  14. SA_INVERTRANGE            /* due to bug in OctaMED ?? */
  15. SA_ADJUSTYRANGE 8
  16. SA_INVERTRANGE
  17. SA_RANGE START 0 END 0
  18.  
  19. EXIT
  20.  
  21.  
  22.  
  23.  
  24. /*              P R O C E D U R E S
  25. -----------------------------------------------------*/
  26.  
  27. checkifsample: PROCEDURE
  28.    IN_GETTYPE VAR type
  29.    IF ~(type == SAMPLE | type == SAMPLE16) THEN DO
  30.       WI_REQUEST '"No sample!"' '"Ok"'
  31.       EXIT
  32.    END
  33. return
  34.